United States Naval Academy Annapolis, Maryland/United States Naval Academy - Annapolis, Maryland.iso/pc/navy data/modules/defaultcursors.k

Text File | 2000-08-09 | 4KB | 177 lines

module oDefaultCursorPlugin is cPlugin
has
    release Editor:
        GetIO()
            do
                result := oIODefaultCursorPlugin;
            end;
    end;
with
    Media is [
        oDefaultCursorList
    ];
end;

object oDefaultCursorList is cCursorList
has
    InitializeRuntime(theRuntime)
        do
            theRuntime.BusyCursor := oBusyCursor;
            theRuntime.InCursor := oFingerCursor;
            theRuntime.OutCursor := oArrowCursor;
        end;
with
    URL is "./DefaultCursors.pic";
    Cursors is [
        oEmptyCursor,
        oArrowCursor,
        oFingerCursor,
        oPlusCursor,
        oQueryCursor,
        oDontCursor,
        oTargetCursor,
        oCrossCursor,
        oWatchCursor,
        oBusyCursor,
        oHandCursor,
        oEarthCursor,
        oOpenHandCursor,
        oClosedHandCursor,
        oEditCursor
    ];
end;

object oEmptyCursor is cCursor
with
    HotSpotX is 0;
    HotSpotY is 0;
    Identifier is "oEmptyCursor";
end;

object oArrowCursor is cCursor
with
    HotSpotX is 4;
    HotSpotY is 1;
    Identifier is "oArrowCursor";
end;

object oFingerCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 0;
    Identifier is "oFingerCursor";
end;

object oPlusCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 7;
    Identifier is "oPlusCursor";
end;

object oQueryCursor is cCursor
with
    HotSpotX is 2;
    HotSpotY is 4;
    Identifier is "oQueryCursor";
end;

object oDontCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 7;
    Identifier is "oDontCursor";
end;

object oTargetCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 7;
    Identifier is "oTargetCursor";
end;

object oCrossCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 7;
    Identifier is "oCrossCursor";
end;

object oWatchCursor is cAnimatedCursor
with
    CursorCount is 7;
    HotSpotX is 8;
    HotSpotY is 8;
    Identifier is "oWatchCursor";
end;

object oBusyCursor is cAnimatedCursor
with
    CursorCount is 4;
    HotSpotX is 7;
    HotSpotY is 7;
    Identifier is "oBusyCursor";
end;

object oHandCursor is cAnimatedCursor
with
    CursorCount is 6;
    HotSpotX is 7;
    HotSpotY is 0;
    Identifier is "oHandCursor";
end;

object oEarthCursor is cAnimatedCursor
with
    CursorCount is 7;
    HotSpotX is 7;
    HotSpotY is 7;
    Identifier is "oEarthCursor";
end;

object oOpenHandCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 0;
    Identifier is "oOpenHandCursor";
end;

object oClosedHandCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 3;
    Identifier is "oClosedHandCursor";
end;

object oEditCursor is cCursor
with
    HotSpotX is 7;
    HotSpotY is 11;
    Identifier is "oEditCursor";
end;

release Editor:

object oIODefaultCursorPlugin is cIOPlugin
with
    MenuItems is [
        cIOCursorMenuItem with Name is "Empty"; Value is oEmptyCursor; end,
        cIOCursorMenuItem with Name is "Arrow"; Value is oArrowCursor; end,
        cIOCursorMenuItem with Name is "Finger"; Value is oFingerCursor; end,
        cIOCursorMenuItem with Name is "Plus"; Value is oPlusCursor; end,
        cIOCursorMenuItem with Name is "Query"; Value is oQueryCursor; end,
        cIOCursorMenuItem with Name is "Don\'t"; Value is oDontCursor; end,
        cIOCursorMenuItem with Name is "Target"; Value is oTargetCursor; end,
        cIOCursorMenuItem with Name is "Cross"; Value is oCrossCursor; end,
        cIOCursorMenuItem with Name is "Watch"; Value is oWatchCursor; end,
        cIOCursorMenuItem with Name is "Busy"; Value is oBusyCursor; end,
        cIOCursorMenuItem with Name is "Hand"; Value is oHandCursor; end,
        cIOCursorMenuItem with Name is "Earth"; Value is oEarthCursor; end,
        cIOCursorMenuItem with Name is "Open Hand"; Value is oOpenHandCursor; end,
        cIOCursorMenuItem with Name is "Closed Hand"; Value is oClosedHandCursor; end,
        cIOCursorMenuItem with Name is "Edit"; Value is oEditCursor; end
    ];
end;

end; -- release Editor